<?php
    /**
     * @package JAMA
     *    Error handling
     * @author  Michael Bommarito
     * @version 01292005
     */
    //Language constant
    define('JAMALANG', 'EN');
    //All errors may be defined by the following format:
    //define('ExceptionName', N);
    //$error['lang'][ExceptionName] = 'Error message';
    $error = [];
    /*
    I've used Babelfish and a little poor knowledge of Romance/Germanic languages for the translations here.
    Feel free to correct anything that looks amiss to you.
    */
    define('POLYMORPHIC_ARGUMENT_EXCEPTION', -1);
    $error['EN'][POLYMORPHIC_ARGUMENT_EXCEPTION] = "Invalid argument pattern for polymorphic function.";
    $error['FR'][POLYMORPHIC_ARGUMENT_EXCEPTION] = "Modèle inadmissible d'argument pour la fonction polymorphe." . $error['DE'][POLYMORPHIC_ARGUMENT_EXCEPTION] = "Unzulässiges Argumentmuster für polymorphe Funktion.";
    define('ARGUMENT_TYPE_EXCEPTION', -2);
    $error['EN'][ARGUMENT_TYPE_EXCEPTION] = "Invalid argument type.";
    $error['FR'][ARGUMENT_TYPE_EXCEPTION] = "Type inadmissible d'argument.";
    $error['DE'][ARGUMENT_TYPE_EXCEPTION] = "Unzulässige Argumentart.";
    define('ARGUMENT_BOUNDS_EXCEPTION', -3);
    $error['EN'][ARGUMENT_BOUNDS_EXCEPTION] = "Invalid argument range.";
    $error['FR'][ARGUMENT_BOUNDS_EXCEPTION] = "Gamme inadmissible d'argument.";
    $error['DE'][ARGUMENT_BOUNDS_EXCEPTION] = "Unzulässige Argumentstrecke.";
    define('MATRIX_DIMENSION_EXCEPTION', -4);
    $error['EN'][MATRIX_DIMENSION_EXCEPTION] = "Matrix dimensions are not equal.";
    $error['FR'][MATRIX_DIMENSION_EXCEPTION] = "Les dimensions de Matrix ne sont pas égales.";
    $error['DE'][MATRIX_DIMENSION_EXCEPTION] = "Matrixmaße sind nicht gleich.";
    define('PRECISION_LOSS_EXCEPTION', -5);
    $error['EN'][PRECISION_LOSS_EXCEPTION] = "Significant precision loss detected.";
    $error['FR'][PRECISION_LOSS_EXCEPTION] = "Perte significative de précision détectée.";
    $error['DE'][PRECISION_LOSS_EXCEPTION] = "Bedeutender Präzision Verlust ermittelte.";
    define('MATRIX_SPD_EXCEPTION', -6);
    $error['EN'][MATRIX_SPD_EXCEPTION] = "Can only perform operation on symmetric positive definite matrix.";
    $error['FR'][MATRIX_SPD_EXCEPTION] = "Perte significative de précision détectée.";
    $error['DE'][MATRIX_SPD_EXCEPTION] = "Bedeutender Präzision Verlust ermittelte.";
    define('MATRIX_SINGULAR_EXCEPTION', -7);
    $error['EN'][MATRIX_SINGULAR_EXCEPTION] = "Can only perform operation on singular matrix.";
    define('MATRIX_RANK_EXCEPTION', -8);
    $error['EN'][MATRIX_RANK_EXCEPTION] = "Can only perform operation on full-rank matrix.";
    define('ARRAY_LENGTH_EXCEPTION', -9);
    $error['EN'][ARRAY_LENGTH_EXCEPTION] = "Array length must be a multiple of m.";
    define('ROW_LENGTH_EXCEPTION', -10);
    $error['EN'][ROW_LENGTH_EXCEPTION] = "All rows must have the same length.";
    /**
     *    Custom error handler
     * @param int $num Error number
     */
    function JAMAError($errorNumber = null) {
        global $error;
        if (isset($errorNumber)) {
            if (isset($error[JAMALANG][$errorNumber])) {
                return $error[JAMALANG][$errorNumber];
            } else {
                return $error['EN'][$errorNumber];
            }
        } else {
            return ("Invalid argument to JAMAError()");
        }
    }
